home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 20 / Tiger_Disk_020_19xx_Tiger-Crew-Disk_de_Side_C.d64 / leonardo show (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  55 lines
  1. 0 ifa=0thena=1:load"leonardo musk",8,1
  2. 1 a=52500:e=a+335:poke53281,.:poke53280,.
  3. 2 fori=atoestep8
  4. 3 forj=0to7:readx:pokei+j,x:next:readk:next
  5. 4 data76,32,205,76,145,205,76,79,894
  6. 5 data206,76,47,205,32,47,205,32,850
  7. 6 data145,205,32,228,255,201,32,208,1306
  8. 7 data249,240,235,32,66,206,32,87,1147
  9. 8 data226,201,9,144,3,76,88,182,929
  10. 9 data160,9,169,32,153,97,206,136,962
  11. 10 data208,250,177,187,153,98,206,200,1479
  12. 11 data196,183,144,246,169,15,162,91,1206
  13. 12 data160,206,32,189,255,162,8,32,1044
  14. 13 data121,0,201,44,208,3,32,155,764
  15. 14 data183,169,111,160,0,32,186,255,1096
  16. 15 data32,131,205,169,0,162,0,160,859
  17. 16 data160,32,213,255,8,32,138,205,1043
  18. 17 data40,176,1,96,76,156,225,165,935
  19. 18 data1,41,254,133,1,96,165,1,692
  20. 19 data9,1,133,1,96,173,17,208,638
  21. 20 data41,239,141,17,208,32,131,205,1014
  22. 21 data162,191,160,64,32,56,206,162,1033
  23. 22 data200,160,0,32,61,206,162,195,1016
  24. 23 data160,39,32,14,206,162,195,160,968
  25. 24 data40,32,56,206,162,216,160,0,872
  26. 25 data32,61,206,162,199,160,15,32,867
  27. 26 data14,206,173,16,199,141,33,208,990
  28. 27 data141,32,208,173,17,208,9,34,822
  29. 28 data141,17,208,173,22,208,41,223,1033
  30. 29 data9,16,141,22,208,169,40,141,746
  31. 30 data24,208,162,160,160,0,32,56,802
  32. 31 data206,162,224,160,0,32,61,206,1051
  33. 32 data162,191,160,63,32,14,206,173,1001
  34. 33 data0,221,41,248,141,0,221,173,1045
  35. 34 data17,208,9,16,141,17,208,76,692
  36. 35 data138,205,142,106,206,140,107,206,1250
  37. 36 data160,0,177,251,145,253,165,252,1403
  38. 37 data205,106,206,208,8,165,251,205,1354
  39. 38 data107,206,208,1,96,230,251,208,1307
  40. 39 data2,230,252,230,253,208,227,230,1632
  41. 40 data254,76,22,206,134,252,132,251,1327
  42. 41 data96,134,254,132,253,96,32,121,1118
  43. 42 data0,201,44,208,3,76,115,0,647
  44. 43 data76,8,175,32,129,255,173,0,848
  45. 44 data221,9,3,141,0,221,96,129,820
  46. 45 data80,73,67,32,63,32,0,0,347
  47. 46 poke53265,peek(53265)and239:sys 52509,"leo!",8:sys52503:e=198:k=4099
  48. 47 poke53265,peek(53265)or16:poke198,0
  49. 48 sysk:a=0:a=0:ifpeek(e)>0then50
  50. 49 goto48
  51. 50 sys52506:poke53280,0:poke53281,0:print"[147][144]":sys4096
  52. 51 poke53272,33:poke648,200:poke56576,0
  53. 52 print"[147][144]load"chr$(34)"leonardo main"chr$(34)",8:"
  54. 53 print:print:print:print:print"run:":poke198,3:poke631,19:poke632,13:poke633,13:end
  55.